﻿Public Class ReservaNegocio
    Public Function listar() As Collection
        Dim dao As New ReservaDAO
        Return dao.listar()
    End Function
    Public Function insertar(ByVal idUsuario As Integer, ByVal FechaReserva As String, ByVal Pago As String, ByVal Total As Integer) As Reserva

        Dim modelo As New Reserva()
        modelo.idUsuario = idUsuario
        modelo.FechaReserva = FechaReserva
        modelo.Pago = Pago
        modelo.Total = Total
        Dim dao As New ReservaDAO
        Return dao.insertar(modelo)
    End Function

    Public Function buscarPorID(ByVal ID As Integer) As Collection
        Dim dao As New ReservaDAO
        Return dao.buscarPorID(ID)
    End Function

End Class
